home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / SCLIB.ARJ / SCL1SAMP.EXE / DISSOLV.C < prev    next >
Text File  |  1992-01-01  |  1KB  |  40 lines
  1. #include <scl1.h>
  2. #include <scl1clor.h>
  3.  
  4. /***********************************************************
  5.     Shows several dissolve effects for clearing the screen */
  6.  
  7. main()
  8. {
  9. int Color1,Color2;
  10.  
  11. if(Video()==COLOR)
  12.     {
  13.     Color1=WHITE_BLACK;
  14.     Color2=BROWN_BLACK+HIGHLIGHT;
  15.     }
  16. else
  17.     {
  18.     Color1=WHITE_BLACK;
  19.     Color2=WHITE_BLACK+HIGHLIGHT;
  20.     }
  21.  
  22. FillBlock(Color2,0,0,VC_Lines-1,VC_Cols-1,'X'); /* Fill screen with X */
  23. WaitTime(50);                                   /* 1/2 second delay */
  24. Dissolve(Color1,DS_BOX,1);                      /* Clear screen */
  25. WaitTime(50);
  26.                                                                   
  27. FillBlock(Color2,0,0,VC_Lines-1,VC_Cols-1,'X');
  28. WaitTime(100);
  29. Dissolve(Color1,DS_SIDES,1);
  30. WaitTime(50);
  31.  
  32. FillBlock(Color2,0,0,VC_Lines-1,VC_Cols-1,'X');
  33. WaitTime(100);
  34. Dissolve(Color1,DS_SIX_PARTS,1);
  35. WaitTime(50);
  36.  
  37. FillBlock(Color2,0,0,VC_Lines-1,VC_Cols-1,'X');
  38. WaitTime(100);
  39. Dissolve(Color1,DS_FOUR_BOXES,1);
  40. }